﻿Module Module1
    Public Class Alumno
        Public nombre, curso As String
        Sub mostrar()
            Console.WriteLine("Nombre: " & nombre)
            Console.WriteLine("Curso: " & curso)
        End Sub
    End Class
    Public Class Alumno2
        Inherits Alumno
        Public edad As Integer

        Overloads Sub mostrar()
            MyBase.mostrar()
            Console.WriteLine("Edad: " & edad)
        End Sub
    End Class

    Sub main()
        Dim alu As New Alumno
        alu.nombre = "Felipe"
        alu.curso = "3º E.S.O."
        alu.mostrar()
        Console.ReadLine()
        Dim alu2 As New Alumno2
        alu2.nombre = "Julio"
        alu2.curso = "4º E.S.O"
        alu2.edad = 17
        alu2.mostrar()
        Console.ReadLine()
    End Sub
End Module

